sub vg5000putcharpoke(txpos as ubyte,typos as ubyte,tch as ubyte,tattr as ubyte):
  poke 16384+((typos*40+txpos)*2),tch
  poke 16385+((typos*40+txpos)*2),tattr
  end sub

